home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / ResEdit3.0.sit / ResEdit™ 3.0 / ResEdit 3.0.rsrc / VDL_261_Resource.vers < prev    next >
Text File  |  1997-01-27  |  4KB  |  135 lines
  1. // Automatic TMPL-to-VDL conversion for resource type 'vers'.
  2. // Modified by Marc Rhodes, April 1, 1996.
  3.  
  4. Margin( 10, 10, 10, 10, Width = UseParent )
  5.     VList(Width = UseParent, Alignment = Right )
  6.         {
  7.         HList
  8.             {
  9.             EditText(Version_Number, Unsigned(8), Width = 135, Label = "Version Number: ",LabelAlignment = Right, LabelWidth = 105, SingleLine);
  10.             StaticText("  .  ");
  11.             EditText(Revision_Number, Unsigned(4), Width = 30, SingleLine);
  12.             StaticText("  .  ");
  13.             EditText(Fix_Number, Unsigned(4), Width = 30, SingleLine);
  14.             }
  15.  
  16.         Spacer(Width = 0, Height = 4);
  17.         HList
  18.             {
  19.             Spacer(Width = 110, Height = 0);
  20.             Label("Release ", Single)            
  21.                 Margin(5,5,5,5)
  22.                     VList()
  23.                         {
  24.                         RadioButton("Development", Revision_Stage, 0x20);
  25.                         RadioButton("Alpha", Revision_Stage, 0x40);
  26.                         RadioButton("Beta", Revision_Stage, 0x60);
  27.                         RadioButton("Release", Revision_Stage, 0x80);
  28.                         }
  29.             }
  30.  
  31.         Spacer(Width = 0, Height = 6);
  32.         EditText(Build_Number, Unsigned(8), Width = 135, Label = "Internal Stage: ",LabelAlignment = Right, LabelWidth = 105, SingleLine);
  33.  
  34.         Spacer(Width = 0, Height = 4);
  35.         IntegerPopup("Country: ", 108, Language_Integer, Width = 273)
  36.             {
  37.             IntItem("00 - United States", 0);
  38.             IntItem("01 - France", 1);
  39.             IntItem("02 - Britain", 2);
  40.             IntItem("03 - Germany", 3);
  41.             IntItem("04 - Italy", 4);
  42.             IntItem("05 - NetherLands", 5);
  43.             IntItem("06 - Belgium/Luxembourg", 6);
  44.             IntItem("07 - Sweden", 7);
  45.             IntItem("08 - Spain", 8);
  46.             IntItem("09 - Denmark", 9);
  47.             IntItem("10 - Portugal", 10);
  48.             IntItem("11 - French Canda", 11);
  49.             IntItem("12 - Norway", 12);
  50.             IntItem("13 - Israel", 13);
  51.             IntItem("14 - Japan", 14);
  52.             IntItem("15 - Australia", 15);
  53.             IntItem("16 - Arabia", 16);
  54.             IntItem("17 - Finland", 17);
  55.             IntItem("18 - French Swiss", 18);
  56.             IntItem("19 - German Swiss", 19);
  57.             IntItem("20 - Greece", 20);
  58.             IntItem("21 - Iceland", 21);
  59.             IntItem("22 - Malta", 22);
  60.             IntItem("23 - Cyprus", 23);
  61.             IntItem("24 - Turkey", 24);
  62.             IntItem("25 - Yugoslavia", 25);
  63.             IntItem("-", 1);
  64.             IntItem("33 - India", 33);
  65.             IntItem("34 - Pakistan", 34);
  66.             IntItem("-", 1);
  67.             IntItem("41 - Lithuania", 41);
  68.             IntItem("42 - Poland", 42);
  69.             IntItem("43 - Hungary", 43);
  70.             IntItem("44 - Estonia", 44);
  71.             IntItem("45 - Latvia", 45);
  72.             IntItem("46 - Lapland", 46);
  73.             IntItem("47 - Faroe Islands", 47);
  74.             IntItem("48 - Iran", 48);
  75.             IntItem("49 - Russia", 49);
  76.             IntItem("50 - Iceland",5041);
  77.             IntItem("51 - Korea", 51);
  78.             IntItem("52 - China", 52);
  79.             IntItem("53 - Taiwan", 53);
  80.             };
  81.         
  82.         
  83.         Spacer(Width = 0, Height = 4);
  84.         EditText(Abbreviated_string, Width = 205, Label = "Abbreviated string: ",LabelAlignment = Right, LabelWidth = 105);
  85.  
  86.         Spacer(Width = 0, Height = 4);
  87.         HList
  88.             {
  89.             StaticText("Suggested string:   ", Width = 110, Alignment = Right);
  90.             StaticText(Version_Number);
  91.             StaticText(".");
  92.             StaticText(Revision_Number);
  93.             Switch(Fix_Number)
  94.                 {
  95.                 case 0:
  96.                     StaticText("");
  97.                 default:
  98.                     HList
  99.                         {
  100.                         StaticText(".");
  101.                         StaticText(Fix_Number);
  102.                         }
  103.                 }
  104.             Switch(Revision_Stage)
  105.                 {
  106.                 case 0x20:
  107.                     HList
  108.                         {
  109.                         StaticText("d");
  110.                         StaticText(Build_Number);
  111.                         }
  112.                 case 0x40:
  113.                     HList
  114.                         {
  115.                         StaticText("a");
  116.                         StaticText(Build_Number);
  117.                         }
  118.                 case 0x60:
  119.                     HList
  120.                         {
  121.                         StaticText("b");
  122.                         StaticText(Build_Number);
  123.                         }
  124.                 case 0x80:
  125.                     StaticText(" ");
  126.                 default:
  127.                     StaticText("");
  128.                 }
  129.             }
  130.  
  131.         Spacer(Width = 0, Height = 4);
  132.         EditText(Get_Info_string, Width = UseParent, Height = 29, Label = "Get Info string: ",LabelAlignment = Right, LabelWidth = 105);
  133.         Spacer(Width = 0, Height = 4);
  134.     } //VList
  135.